home *** CD-ROM | disk | FTP | other *** search
/ PC Answers 1998 January / PC Answers Issue 49 Cover CD January 1998.iso / Apps / Director / DATA.Z / Lists Lingo.dir / Scripts_121_setaProp aPropertyList.ls < prev    next >
Encoding:
Text File  |  1997-05-10  |  553 b   |  15 lines
  1. on mouseDown
  2.   global gDefaultPropList
  3.   doButton()
  4.   if the result = 1 then
  5.     set vValue to the text of member "Changing Property SetAProp Input Field 2"
  6.     set vValue to checkValue(vValue)
  7.     set vProperty to the text of member "Changing Property SetAProp Input Field 1"
  8.     set vProperty to checkValue(vProperty)
  9.     if (vValue <> EMPTY) and (vProperty <> EMPTY) then
  10.       setaProp(gDefaultPropList, vProperty, vValue)
  11.       set the text of member "Changing Property SetAProp Display Field 1" to string(gDefaultPropList)
  12.     end if
  13.   end if
  14. end
  15.